home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Sound / Utilities / JUNO Librarian 1.0.7 / Sample Scripts / 16 Change DCO Range < prev    next >
Text File  |  1994-01-28  |  302b  |  14 lines
  1. tell application "JUNO Librarian"
  2.     activate -- if needed
  3.     set x to Parameter 16 of Window "Sample"
  4.     set x to (round (x ÷ 8) rounding down)
  5.     set x to x * 8
  6.     
  7.     -- select 1 of 3
  8.     --    set x to x + 1 -- 16"
  9.     --    set x to x + 2 -- 8"
  10.     set x to x + 4 -- 4"
  11.     
  12.     copy x to Parameter 16 of Window "Sample"
  13. end tell
  14.